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12-80 8=138e te ee: EBASRTL SRE BASRESTAR.B352;1 
MODULE BASSSRESTART 10 ( ' Restart BASIC 1/0 statement 
IDERT = '1-002' ' File: BASRESTAR B32 
BEGIN 


Yee RRR AAA AEAAAAAAAEAERE EEA EAER EATER ARERR AAEEREAAAAREERERAEES 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
if ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE A E I 
'® ONLY IN ACCORDANCE WITH THE TERM NSE AND WITH T 
:# INCLUSION OF THE ABOVE COPYRIGHT NOTICE EO Y 

't COPIES THEREOF MAY NOT BE PROVIDED OR OTHER AVAILABLE TO A 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF FTWARE IS HERE 


® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. * 
® 
® 
® 
& 
* 
® 
® 
® 
® 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eeRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee RARER AAEAEREAAARAAEAEARAE RAAT EREK EERE 


lee 
FACILITY: BASIC + 2 Support Library - User callable 
ABSTRACT: 


This module effects the restart of a BASIC 1/0 statement. 
This only happens on certain typing errors from a terminal. 


ENVIRONMENT: VAX-11 User mode 
AUTHOR: John Sauter, CREATION DATE: 07-MAY-1979 
MODIFIED BY: 


1-001 - Originet. JBS 07-MAY-1979 
1-002 - Conform to new BAS$$I10_BEG. JBS 24-JUL-1979 
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| SWITCHES: 


H 
6- 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


; LINKAGES 


REQUIRE "RTLIN:OTSLNK'; 
' 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSSRESTART_10; 


! INCLUDE FILES: 


REQUIRE ‘RTLML:OTSLUB’; 
REQUIRE ‘RTLML:OTSISB’; 
REQUIRE "RTLIN:RTLPSECT'; 
LIBRARY ‘RTLSTARLE'; 


MACROS: 

NONE 

EQUATED SYMBOLS: 
NONE 

: PSECT DECLARATIONS: 
DECLARE PSECTS (BAS); 
OWN STORAGE : 
: NONE 
; 
; 
; 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
BAS$10 END : NOVALUE 
BAS$$10_BEG : NOVALUE; 


EXTERNAL 


Define all Linkages 


Restart an 1/0 statement 


logical unit block (LUB) offsets 
1/0 statement block (ISB) offsets 
Define DECLARE_PSECTS macro 
STARLET macros and symbols 


! End of 1/0 statement 
' Start of 1/0 statement 
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16-Sep-1984 01:04:44 AX-11 Bliss-32 V4.0-74 
13-80 8= 1382 91:96:36 BASRTL. RCIBASRESTAR.B 2:1 


BASSSRESTART. 10 


i 


OTSS$A_CUR_LUB; 


13 
1b- Sep-19 1:04:44 AX-11 Bliss-32 V4.0 
1e=8e5-1984 71:98:48 BASRTL.SRC BASRESTAR. 3 2:1 


! Addréss of current logical unit block 


Page 


(23 


13 
BASSSRESTART_10 1b-Se -1984 01:04:44 AX-11 Bliss-32 V4.0-74 Page 4 
me tts 14-Sep-19 4 oi 6:35 EBASRTL SRe BasRe sian 682:1 ° (3) 
3 198 4 5 ! GLOBAL ROUTINE BASSSRESTART_I0 = ! Restart an 1/0 statement 
: 9111 9 5 1 !44 
3 118 9 3 1 ! ABSTRACT: 
; 82 s 
3; (114 40 1! Restart a BASIC 1/0 statement after a typing error. 
3 115 941 1! Information about the current statement is gathered, and then 
s 336 942 1! the statement is put through a normal end by gat ts BASSIO_END. 
3; Ti" 945 1! Using the gathered information the statement is initialized 
: 118 0944 1! again by yt hg BASS$10_ BEG with its original parameters. 
: 119 0945 1! Return is made to the RESTART_IO subroutine in the error module, 
3 : , B3¢ } which will branch to the start of the I/O List. 
: : 094 i FORMAL PAREMETERS: 
: 126 0950 1! NONE 
3 \¢3 0951 1! 
; 1$6 boe$ : IMPLICIT INPUTS: 
; 18 Beee } : OTSSS$A_CUR_LUB.ra Pointer to the current LUB/ISB/RAB. 
; 1$6 0996 { IMPLICIT OUTPUTS: 
: 132 3444 ' ! The LUB/ISB/RAB is reinitialized for the 1/0 statement. 
; 134 0960 t ROUTINE VALUE: 
: 136 096¢ The address of the beginning of the 1/0 List. 
; 138 0964 i SIDE EFFECTS: 
: 140 0966 1! NONE 
> 141 0967 1 !<- 
3 ist 0968 1 
; «614 0969 2 BEGIN 
3 «144 0970 
: «6145 0971 GLOBAL REGISTER 
; 146 097 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
: 148 0974 LOCAL 
3; (149 0975 RESTART_PC, ! Address of the start of the 1/0 List 
s 150 097 LUN ' Logical unit number 
; 151 097 STMT_TYPE, i Statement type — 
3 13¢ are FMP; ! User's frame pointer 
; 134 0980 2 !+ 
: 133 H+ : Save the information needed to call BAS$$10_BEG. 
: 157 9 Q '  ¢CB = sOTSS$A_CUR_1 UB: 
: 158 9 RESTART PC = CCB ISBSA_RESTARTPC); 
3; 159 5 LUN = .CCB CLUBSW_LUN); 
i 160 9 STMT_TYPE = .CCB CISB$B_STTM_TYPE); 
; 16 3 ,, FMP = .cCB CISBSA_USER_FP); 
: 188 389 i Suppress any ‘‘dangling prompt’’. The prompt will be produced again 
3 HS ¢: 4 } when we restart the 1/0 statement. 


SSSRESTART 10 


hk th td 
SSeS ON SSS2F. 
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; Routine Size: 


a 
4 te 
Mw 


CCB CRABSB_PSZ) = 0; 

Now end the 1/0 statement. 
BASSIO_END (); 
CcB = 0; 


it, thereby complet 
06 "RETURN (.RESTART_PC); 
07 1 END; 


ss tO OO COOCOO 
eee ye) ono 
woo ne 


Soooooooo 


083C 00000 
5B 000000006 00 00 00002 
54 FF44 CB 8 00009 
55 66 AB 32 0000 
53 FF71 CB 9A 0001 
32 FF4C «CB 00 0001 
34 AB 94 0001C 
000000006 00 00 FB 9H 
5B 04 00026 
14 BB 00028 
28 BB 0002A 
000000006 90 04 FB ita 
0 54 pO 000 
04 00036 


55 bytes, Routine Base: _BASSCODE + 0000 


PSECT SUMMARY 
Bytes Attributes 


4:44 AX-11 Bliss-32 V4 
6:35 BASRTL. RC} AS 


ng the restart of the 1/0 statement. 


! End of 


16 Sa 19 
-sep- 
1923987138 


De 
BASRESTAR.B52;1 


'¢ 

+ } Now start a new 1/0 statement, just Like the one we ended. 

4 BASS$IO_BEG (.STMT_TYPE, .LUN, .FMP, .RESTART_PC); 

08 i Return the address of the 1/0 List to our caller, who will branch to 
05 


BASSSRESTART_IO routine 


BASSSRESTART_10 
\1=002\ 


BASSIO_END, BAS$$10_BEG 
OTSS$SA_CUR_LUB 


-BASSCODE,NOWRT, SHR, PIC,2 


BASSSRESTART_10, Save R2,R3,R4,R5,R11 
OTS$$A_CUR_LOB, CCB 
188 (CCB) , “RESTART _PC 
CB), LUN 
CBS, STMT_TYPE 
CB), FMP 


1 S$IO_END 


#°M<R2,R4> 
#°M<R3_R5> 
#4, BASS$$10_BEG 
RESTART_PC, RO 


5 
1 
1 
6 
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! End of BASSSRESTART_10 module 


PASRERESTART 10 san 01:04:44 Yayett BLisg=32,y4.0-742, | Page 


-BASSCODE 55 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Ree Soa ae a Eee we Syabele scccecce Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255S$DUA28:(SYSLIBISTARLET.L32;1 9776 1 0 581 00:01.2 

; COMMAND QUALIFIERS 

: PL LSS/CHE CROCE ICL, INITIAL GPT INL EE) AUDTRACEAL 1904 1881 BASRESTAR/OR.J90R IS :OASRESTAN MSRC$:BASRESTAR/UPDATE=(ENH$: BASRESTAR 
Size: 55 code + 0 data bytes 
Run Time: 00:08.2 


Elapsed Time: 00:24.1 
Lines/CPU Min: 738 
Lexemes/CPU-Min: 44492 
met Used: 110 pages 
Compi ation Complete 


MENT CORPORATION 
AND PROPRIETARY 
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